library(shiny)

shinyUI(fluidPage(
  titlePanel("Demostration of the selectInput UI widget in shiny"),
  sidebarLayout(
    sidebarPanel(
      
      selectInput("statenames","Select the state",c("california","Florida", "Texas","New York","Arizona"),
                  selected = "Texas",selectize = TRUE,
                  multiple = TRUE) # multi selection
    ),
    mainPanel(
      textOutput("state")
    )
  )
))